home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
pdox693.zip
/
TI373.ASC
< prev
next >
Wrap
Text File
|
1992-09-09
|
2KB
|
133 lines
PRODUCT : Paradox NUMBER : 373
VERSION : All
OS : DOS
DATE : September 9, 1992 PAGE : 1/2
TITLE : Creating a Non-Abbreviated Month Text Field
Intended Audience:
This Technical Information sheet is intended to be used by
persons with a moderate level of Paradox knowledge. Some
knowledge of PAL is useful.
Prerequisites:
A moderate level of Paradox knowledge. Some previous experience
with PAL is helpful.
Purpose:
The following PAL script scans a table named "tbl", extracts the
month of the year from a date field and assigns the corresponding
non-abbreviated month to an alphanumeric field named "Month".
EDIT "tbl" ; Edits the table named "tbl"
SCAN ; Scans every record in the table
d=[Date] ; Assigns the value in the field named
; Date to the variable d
m=MOY(d) ; Assigns the month of the year as a
; string (i.e. Jan, Feb, Mar etc.)
; to the variable m
SWITCH
CASE m = "Jan": [Month] = "January"
CASE m = "Feb": [Month] = "February"
CASE m = "Mar": [Month] = "March"
CASE m = "Apr": [Month] = "April"
CASE m = "May": [Month] = "May"
CASE m = "Jun": [Month] = "June"
CASE m = "Jul": [Month] = "July"
CASE m = "Aug": [Month] = "August"
CASE m = "Sep": [Month] = "September"
CASE m = "Oct": [Month] = "October"
CASE m = "Nov": [Month] = "November"
CASE m = "Dec": [Month] = "December"
ENDSWITCH
ENDSCAN
For additional information on PAL, refer to the PAL Reference
Guide (for versions earlier than 4.0, refer to the PAL User's
Guide).
PRODUCT : Paradox NUMBER : 373
VERSION : All
OS : DOS
DATE : September 9, 1992 PAGE : 2/2
TITLE : Creating a Non-Abbreviated Month Text Field
DISCLAIMER: You have the right to use this technical information
subject to the terms of the No-Nonsense License Statement that
you received with the Borland product to which this information
pertains.